COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	IFCR (NOT DECLARATION(ONAGDP)) OR (NOT DECLARATION(STSP)) THENC
C00007 ENDMK
C⊗;
IFCR (NOT DECLARATION(ONAGDP)) OR (NOT DECLARATION(STSP)) THENC
! SOME UTILITY PROGRAMS;
EXTERNAL STRING HEADLN;
EXTERNAL SIMPLE PROCEDURE CCTRAP(PROCEDURE ABRT);
EXTERNAL SIMPLE PROCEDURE CCOFF;
simple external PROCEDURE GETPPN(REFERENCE STRING PPN,NAME);
simple external INTEGER PROCEDURE ONAGDP;
EXTERNAL SIMPLE STRING PROCEDURE DATE;
EXTERNAL SIMPLE STRING PROCEDURE TTIME;
EXTERNAL SIMPLE STRING PROCEDURE SW(REFERENCE STRING INP);
EXTERNAL SIMPLE INTEGER PROCEDURE INDEX(STRING FNDSTR,INSTR);
EXTERNAL SIMPLE STRING PROCEDURE STSP(STRING S);
EXTERNAL SIMPLE STRING PROCEDURE DTIME;
EXTERNAL SIMPLE STRING PROCEDURE NAMFIL(STRING FILNAM);
EXTERNAL SIMPLE STRING PROCEDURE GETDEV(REFERENCE STRING PICNAM; 
                                        STRING DEFAULT!EXT);
EXTERNAL SIMPLE INTEGER PROCEDURE IPRMPT(STRING MSG; REFERENCE INTEGER VAL);
EXTERNAL SIMPLE REAL PROCEDURE RPRMPT(STRING MSG; REFERENCE REAL VAL);
EXTERNAL SIMPLE STRING PROCEDURE SPRMPT(STRING MSG; REFERENCE STRING VAL);
EXTERNAL SIMPLE INTEGER PROCEDURE BPRMPT(STRING MSG; REFERENCE INTEGER VAL);
EXTERNAL SIMPLE INTEGER PROCEDURE TPRMPT(STRING MSG; REFERENCE INTEGER VAL);
simple external INTEGER PROCEDURE DGETCHAN;
simple external PROCEDURE DRELEASE(INTEGER CHAN);
simple external INTEGER PROCEDURE DGETBRK;
simple external PROCEDURE DRELBRK(INTEGER BRTAB);
EXTERNAL SIMPLE PROCEDURE READ(REFERENCE INTEGER CHAN; 
                               INTEGER MODE; 
                               REFERENCE INTEGER BRCHAR,EOF;
			       REFERENCE STRING FILNAM;
                               STRING DEFAULT!EXT);
EXTERNAL SIMPLE PROCEDURE WRITE(REFERENCE INTEGER CHAN; 
                                INTEGER MODE; 
                                REFERENCE INTEGER BRCHAR,EOF;
			        REFERENCE STRING FILNAM;
                                STRING DEFAULT!EXT);
ifcr not declaration(OUTST) THENC EXTERNAL SIMPLE PROCEDURE OUTST(STRING STR); ENDC
EXTERNAL SIMPLE BOOLEAN PROCEDURE LOCKUP(BOOLEAN LOCKIT);
simple external STRING PROCEDURE DYNFIL(STRING DEVICE,NAME,EXT,PPN);
! BREAK TABLE STUFF;
DEFINE CLRBRK(I)="BEGIN
	BREAKSET(I,NULL,""O"");	SETBREAK(I,NULL,NULL,""FSP"");
	END";
DEFINE GETBRK="GETBREAK";
DEFINE RELBRK(I)="RELBREAK(I)";
DEFINE FREBRK="5";
EXTERNAL SIMPLE PROCEDURE CMDINIT(STRING FILE);
EXTERNAL SIMPLE STRING PROCEDURE CMDFIN(REFERENCE INTEGER EOFF);
EXTERNAL SIMPLE INTEGER PROCEDURE BLKSREAD;
EXTERNAL SIMPLE INTEGER PROCEDURE BLKSWRTN;
EXTERNAL SIMPLE PROCEDURE APPEND(INTEGER CHAN; STRING FILE; REFERENCE INTEGER FLG);
EXTERNAL SIMPLE PROCEDURE APPNDTO(STRING FILNAM,TEXT);
EXTERNAL SIMPLE INTEGER PROCEDURE TRTIME;
EXTERNAL SIMPLE INTEGER PROCEDURE ERTIME;
EXTERNAL SIMPLE INTEGER PROCEDURE EBLKSREAD;
EXTERNAL SIMPLE INTEGER PROCEDURE EBLKSWRTN;
EXTERNAL SIMPLE STRING PROCEDURE SLABEL(INTEGER SEL);
external INTEGER  simple procedure uptoval(reference integer i,j; integer val,buf);
EXTERNAL INTEGER SIMPLE PROCEDURE ADD1(REFERENCE INTEGER NUM);
EXTERNAL INTEGER SIMPLE PROCEDURE SUB1(REFERENCE INTEGER NUM);
simple EXTERNAL INTEGER PROCEDURE FNDINC(REFERENCE INTEGER MAXV,MINV);
ENDC